Profile of (eval 267)[Sub/Quote.pm:3]

Filename	(eval 267)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 243 statements in 602µs
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
62	7	3	263µs	585µs	JSON::Schema::Modern::Document::canonical_uri
1	1	1	11µs	30µs	JSON::Schema::Modern::Document::BEGIN@8
1	1	1	5µs	14µs	Method::Generate::Accessor::_Generated::BEGIN@44.117
1	1	1	3µs	3µs	Method::Generate::Accessor::_Generated::BEGIN@13.116

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	1µs			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
3	1	0s			my $isa_check_for_canonical_5furi = ${$_[1]->{"\$isa_check_for_canonical_5furi"}};
4	1	0s			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
5	1	0s			my $coerce_for_canonical_5furi = ${$_[1]->{"\$coerce_for_canonical_5furi"}};
6	1	0s			my $default_for_canonical_5furi = ${$_[1]->{"\$default_for_canonical_5furi"}};
7					package JSON::Schema::Modern::Document;
8	2	71µs	2	49µs	# spent 30µs (11+19) within JSON::Schema::Modern::Document::BEGIN@8 which was called: # once (11µs+19µs) by Sub::Quote::_clean_eval at line 8 no warnings 'closure'; # spent 30µs making 1 call to JSON::Schema::Modern::Document::BEGIN@8 # spent 19µs making 1 call to warnings::unimport
9					# spent 585µs (263+322) within JSON::Schema::Modern::Document::canonical_uri which was called 62 times, avg 9µs/call: # 15 times (168µs+322µs) by JSON::Schema::Modern::Document::BUILD at line 145 of JSON/Schema/Modern/Document.pm, avg 33µs/call # 15 times (39µs+0s) by JSON::Schema::Modern::Document::BUILD at line 168 of JSON/Schema/Modern/Document.pm, avg 3µs/call # 14 times (7µs+0s) by JSON::Schema::Modern::Document::traverse at line 178 of JSON/Schema/Modern/Document.pm, avg 500ns/call # 8 times (34µs+0s) by JSON::Schema::Modern::add_schema at line 196 of JSON/Schema/Modern.pm, avg 4µs/call # 8 times (13µs+0s) by JSON::Schema::Modern::add_schema at line 188 of JSON/Schema/Modern.pm, avg 2µs/call # once (1µs+0s) by JSON::Schema::Modern::Document::OpenAPI::traverse at line 115 of JSON/Schema/Modern/Document/OpenAPI.pm # once (1µs+0s) by JSON::Schema::Modern::Document::OpenAPI::traverse at line 76 of JSON/Schema/Modern/Document/OpenAPI.pm sub canonical_uri {
10					($_QUOTED,$_UNQUOTED) if 0;
11					# BEGIN quote_sub PRELUDE
12					package Method::Generate::Accessor::_Generated;
13					# spent 3µs within Method::Generate::Accessor::_Generated::BEGIN@13.116 which was called: # once (3µs+0s) by Sub::Quote::_clean_eval at line 18 BEGIN {
14	1	1µs			$^H = 1762;
15	1	0s			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
16	1	3µs			%^H = (
17					);
18	1	76µs	1	3µs	} # spent 3µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@13.116
19					# END quote_sub PRELUDE
20	62	53µs			Carp::croak("canonical_uri is a read-only accessor") if @_ > 1;
21					exists $_[0]->{"canonical_uri"} ?
22					$_[0]->{"canonical_uri"}
23	62	148µs			: do {
24	8	5µs			my $value = do {
25	8	22µs			local $Method::Generate::Accessor::CurrentAttribute = {
26					init_arg => undef(),
27					name => "canonical_uri",
28					step => "coercion",
29					};
30	8	3µs			(my $_return),
31					(my $_error), (my $_old_error = $@);
32	8	3µs			(eval {
33	8	28µs	16	276µs	($@ = $_old_error), # spent 158µs making 8 calls to JSON::Schema::Modern::Document::__ANON__[JSON/Schema/Modern/Document.pm:39], avg 20µs/call # spent 118µs making 8 calls to JSON::Schema::Modern::Document::__ANON__[JSON/Schema/Modern/Document.pm:38], avg 15µs/call
34					($_return =
35					$coerce_for_canonical_5furi->($default_for_canonical_5furi->($_[0]))),
36					1
37					} or
38					$_error = CORE::ref $@ ? $@ : "coercion for \"canonical_uri\" failed: ".$@);
39	8	5µs			($@ = $_old_error),
40					(defined $_error and CORE::die $_error);
41	8	7µs			$_return;
42					}
43					;
44	42	165µs	26	69µs	# spent 14µs (5+9) within Method::Generate::Accessor::_Generated::BEGIN@44.117 which was called: # once (5µs+9µs) by Sub::Quote::_clean_eval at line 44 do { no warnings "void"; package Type::Tiny; ((((Scalar::Util::blessed($value) and $value->isa(q[Mojo::URL]))) && (do { local $_ = $value; not defined $_->fragment }))) or Type::Tiny::_failed_check($isa_check_for_canonical_5furi, "__ANON__", $value, "attribute_name","canonical_uri","attribute_step","isa check","mgaca","0","varname","\$self->{\"canonical_uri\"}"); $value }; # spent 40µs making 8 calls to Mojo::URL::fragment, avg 5µs/call # spent 14µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@44.117 # spent 9µs making 1 call to warnings::unimport # spent 4µs making 8 calls to UNIVERSAL::isa, avg 500ns/call # spent 2µs making 8 calls to Scalar::Util::blessed, avg 250ns/call
45	8	5µs			$_[0]->{"canonical_uri"} = $value
46					}
47					}
48	1	1µs			$$_UNQUOTED = \&canonical_uri;
49					}
50	1	5µs			1;
51
52					;